QuickTime VR Showcase/QuickTime VR Showcase.iso/3rd Parties/Software/Apple/AMT 2.1 New Features Demo/SOURCES/oQuickTime_1_6.k

Text File | 1996-12-21 | 15.4 KB | 751 lines | [TEXT/MPS ]

object oQuickTime_1_6 is cDefaultContainer
with
    Binder is oBinder;
    Label is -1;
    Items is [
        oKeyboard_Volume__6_30,
        oClick_Sound__Up__6_2,
        oClick_Sound__down__6_3,
        oQT_BCK1_PIC_6_15,
        oArrow_Right_Yellow_Highligh_6_4,
        oArrow_Left_Yellow_Highlight_6_5,
        oExit_Yellow_Highlight_6_6,
        oExplain_Yellow_Highlight_6_23,
        oMenu_Yellow_Highlight_6_8,
        oArrow_Left_Inverse_6_9,
        oArrow_Right_Inverse_6_10,
        oExit_Inverse_6_11,
        oExplain_Inverse_6_12,
        oMenu_Inverse_6_13,
        oQT_MOTO_MOV_6_16,
        oQT_FINI_PIC_6_17,
        oQT_LG1_PIC_6_18,
        oQT_LG2_PIC_6_19,
        oQT_LG3_PIC_6_20,
        oQT_STRT_PIC_6_21,
        oQT_TNL_PIC_6_22,
        oQT_HLP1_PIC_6_24
    ];
end;


object oKeyboard_Volume__6_30 is cKeyboardHandler
with
    Behavior is cDefaultBehavior
    has
        KeyDown(theTarget, theKey)
        use
            KeyMatch;

            do
                KeyMatch := theKey = '-';
                if KeyMatch then
                    theTarget.DoDefaultMethod := false;

                    oSoundVolume.StepIndexBy(-1);
                end;
                KeyMatch := theKey = '=';
                if KeyMatch then
                    theTarget.DoDefaultMethod := false;

                    oSoundVolume.StepIndexBy(1);
                end;
                KeyMatch := theKey = '+';
                if KeyMatch then
                    theTarget.DoDefaultMethod := false;

                    oSoundVolume.StepIndexBy(1);
                end;
            end;

    with
        Enabled is true; Shown is false;
        X is 30; Y is 24; Width is 0; Height is 0;
    end;
end;


object oClick_Sound__Up__6_2 is cSoundHandler
with
    Supplier is oS3_2clk_WAV;
    Behavior is cDefaultBehavior
    has
    with
        Enabled is true; Shown is true;
        X is 247; Y is 128; Width is 32; Height is 24;
    end;
end;


object oClick_Sound__down__6_3 is cSoundHandler
with
    Supplier is oS3_clk_WAV;
    Behavior is cDefaultBehavior
    has
    with
        Enabled is true; Shown is true;
        X is 304; Y is 228; Width is 32; Height is 24;
    end;
end;


object oQT_BCK1_PIC_6_15 is cPictureHandler
with
    Duration is -1;
    Supplier is oQT_BCK1_PIC;
    Behavior is cDefaultBehavior
    has
    with
        Enabled is false; Shown is true;
        X is 0; Y is 0; Width is 640; Height is 480;
    end;
end;


object oArrow_Right_Yellow_Highligh_6_4 is cPictureHandler
with
    Duration is -1;
    Supplier is oS2_ALYH_PIC;
    Behavior is cDefaultBehavior
    has
        Offscreen(theTarget)
            do
                theTarget.Show(false);
            end;

        MouseEnter(theTarget, theX, theY)
            do
                theTarget.Show(true);
            end;

        MouseLeave(theTarget, theX, theY)
            do
                theTarget.Show(false);
            end;

        MouseDown(theTarget, theX, theY)
            do
                theTarget.Show(false);
                oArrow_Right_Inverse_6_10.Show(true);
                -- Turn off the spining cursor, if there is one
                if oBinder.MouseSpin<>void then
                    if oBinder.MouseSpin.IsRunning() then
                        oBinder.MouseSpin.Stop();
                    end;
                    oBinder.MouseSpin := void;
                end;
                theTarget.Container.OverrideCursor := true;
                oBinder.MouseSpin := oHandSpin;
                if (oBinder.MouseSpin @ 1).Data=void then
                    oBinder.MouseSpin.EachUp(Load);
                end;
                if not oBinder.MouseSpin.IsRunning() then
                    oBinder.MouseSpin.Start();
                end;
                oBinder.Refresh();
                oClick_Sound__down__6_3.Run(true);
            end;

        MouseUp(theTarget, theX, theY)
            do
                theTarget.Show(true);
                oArrow_Right_Inverse_6_10.Show(false);
                -- Turn off the spining cursor, if there is one
                if oBinder.MouseSpin<>void then
                    if oBinder.MouseSpin.IsRunning() then
                        oBinder.MouseSpin.Stop();
                    end;
                    oBinder.MouseSpin := void;
                end;
                theTarget.Container.OverrideCursor := false;
                oBinder.Refresh();
                oClick_Sound__Up__6_2.Run(true);
                oBinder.Goto(oQuickTime_2_7);
                oBinder.SetTransition(oVerticalComb, 30);
            end;

    with
        Enabled is true; Shown is true;
        X is 473; Y is 426; Width is 55; Height is 54;
    end;
end;


object oArrow_Left_Yellow_Highlight_6_5 is cPictureHandler
with
    Duration is -1;
    Supplier is oS2_ARYH_PIC;
    Behavior is cDefaultBehavior
    has
        Offscreen(theTarget)
            do
                theTarget.Show(false);
            end;

        MouseEnter(theTarget, theX, theY)
            do
                theTarget.Show(true);
            end;

        MouseLeave(theTarget, theX, theY)
            do
                theTarget.Show(false);
            end;

        MouseDown(theTarget, theX, theY)
            do
                theTarget.Show(false);
                oArrow_Left_Inverse_6_9.Show(true);
                -- Turn off the spining cursor, if there is one
                if oBinder.MouseSpin<>void then
                    if oBinder.MouseSpin.IsRunning() then
                        oBinder.MouseSpin.Stop();
                    end;
                    oBinder.MouseSpin := void;
                end;
                theTarget.Container.OverrideCursor := true;
                oBinder.MouseSpin := oHandSpin;
                if (oBinder.MouseSpin @ 1).Data=void then
                    oBinder.MouseSpin.EachUp(Load);
                end;
                if not oBinder.MouseSpin.IsRunning() then
                    oBinder.MouseSpin.Start();
                end;
                oBinder.Refresh();
                oClick_Sound__down__6_3.Run(true);
            end;

        MouseUp(theTarget, theX, theY)
            do
                theTarget.Show(true);
                oArrow_Left_Inverse_6_9.Show(false);
                -- Turn off the spining cursor, if there is one
                if oBinder.MouseSpin<>void then
                    if oBinder.MouseSpin.IsRunning() then
                        oBinder.MouseSpin.Stop();
                    end;
                    oBinder.MouseSpin := void;
                end;
                theTarget.Container.OverrideCursor := false;
                oBinder.Refresh();
                oClick_Sound__Up__6_2.Run(true);
                oBinder.Goto(oMain_Menu_1);
                oBinder.SetTransition(oVerticalComb, 30);
            end;

    with
        Enabled is true; Shown is true;
        X is 377; Y is 426; Width is 60; Height is 54;
    end;
end;


object oExit_Yellow_Highlight_6_6 is cPictureHandler
with
    Duration is -1;
    Supplier is oS2_ETYH_PIC;
    Behavior is cDefaultBehavior
    has
        Offscreen(theTarget)
            do
                theTarget.Show(false);
            end;

        MouseEnter(theTarget, theX, theY)
            do
                theTarget.Show(true);
            end;

        MouseLeave(theTarget, theX, theY)
            do
                theTarget.Show(false);
            end;

        MouseDown(theTarget, theX, theY)
            do
                theTarget.Show(false);
                oExit_Inverse_6_11.Show(true);
                -- Turn off the spining cursor, if there is one
                if oBinder.MouseSpin<>void then
                    if oBinder.MouseSpin.IsRunning() then
                        oBinder.MouseSpin.Stop();
                    end;
                    oBinder.MouseSpin := void;
                end;
                theTarget.Container.OverrideCursor := true;
                oBinder.MouseSpin := oHandSpin;
                if (oBinder.MouseSpin @ 1).Data=void then
                    oBinder.MouseSpin.EachUp(Load);
                end;
                if not oBinder.MouseSpin.IsRunning() then
                    oBinder.MouseSpin.Start();
                end;
                oBinder.Refresh();
                oClick_Sound__down__6_3.Run(true);
            end;

        MouseUp(theTarget, theX, theY)
            do
                theTarget.Show(true);
                oExit_Inverse_6_11.Show(false);
                -- Turn off the spining cursor, if there is one
                if oBinder.MouseSpin<>void then
                    if oBinder.MouseSpin.IsRunning() then
                        oBinder.MouseSpin.Stop();
                    end;
                    oBinder.MouseSpin := void;
                end;
                theTarget.Container.OverrideCursor := false;
                oBinder.Refresh();
                oClick_Sound__Up__6_2.Run(true);
                oBinder.Quit();
            end;

    with
        Enabled is true; Shown is true;
        X is 528; Y is 426; Width is 111; Height is 54;
    end;
end;


object oExplain_Yellow_Highlight_6_23 is cPictureHandler
with
    Duration is -1;
    Supplier is oS2_EXYH_PIC;
    Behavior is cDefaultBehavior
    has
        Offscreen(theTarget)
            do
                theTarget.Show(false);
            end;

        MouseEnter(theTarget, theX, theY)
            do
                theTarget.Show(true);
                -- Turn off the spining cursor, if there is one
                if oBinder.MouseSpin<>void then
                    if oBinder.MouseSpin.IsRunning() then
                        oBinder.MouseSpin.Stop();
                    end;
                    oBinder.MouseSpin := void;
                end;
                theTarget.Container.OverrideCursor := true;
                if oQueryCursor=void then
                    oQueryCursor.Load();
                end;
                oQueryCursor.Set();
            end;

        MouseLeave(theTarget, theX, theY)
            do
                theTarget.Show(false);
                -- Turn off the spining cursor, if there is one
                if oBinder.MouseSpin<>void then
                    if oBinder.MouseSpin.IsRunning() then
                        oBinder.MouseSpin.Stop();
                    end;
                    oBinder.MouseSpin := void;
                end;
                theTarget.Container.OverrideCursor := false;
            end;

        MouseDown(theTarget, theX, theY)
            do
                theTarget.Show(false);
                oExplain_Inverse_6_12.Show(true);
                oBinder.Refresh();
                oClick_Sound__down__6_3.Run(true);
                oQT_HLP1_PIC_6_24.Show(not oQT_HLP1_PIC_6_24.IsShown());
                oBinder.StopAll();
                oQT_MOTO_MOV_6_16.Enable(not oQT_MOTO_MOV_6_16.IsEnabled());
                oQT_FINI_PIC_6_17.Enable(not oQT_FINI_PIC_6_17.IsEnabled());
                oQT_LG1_PIC_6_18.Enable(not oQT_LG1_PIC_6_18.IsEnabled());
                oQT_LG2_PIC_6_19.Enable(not oQT_LG2_PIC_6_19.IsEnabled());
                oQT_LG3_PIC_6_20.Enable(not oQT_LG3_PIC_6_20.IsEnabled());
                oQT_STRT_PIC_6_21.Enable(not oQT_STRT_PIC_6_21.IsEnabled());
            end;

        MouseUp(theTarget, theX, theY)
            do
                theTarget.Show(true);
                oExplain_Inverse_6_12.Show(false);
                oBinder.Refresh();
                oClick_Sound__Up__6_2.Run(true);
            end;

    with
        Enabled is true; Shown is true;
        X is 289; Y is 427; Width is 87; Height is 53;
    end;
end;


object oMenu_Yellow_Highlight_6_8 is cPictureHandler
with
    Duration is -1;
    Supplier is oS2_MNUYH_PIC;
    Behavior is cDefaultBehavior
    has
        Offscreen(theTarget)
            do
                theTarget.Show(false);
            end;

        MouseEnter(theTarget, theX, theY)
            do
                theTarget.Show(true);
            end;

        MouseLeave(theTarget, theX, theY)
            do
                theTarget.Show(false);
            end;

        MouseDown(theTarget, theX, theY)
            do
                theTarget.Show(false);
                oMenu_Inverse_6_13.Show(true);
                -- Turn off the spining cursor, if there is one
                if oBinder.MouseSpin<>void then
                    if oBinder.MouseSpin.IsRunning() then
                        oBinder.MouseSpin.Stop();
                    end;
                    oBinder.MouseSpin := void;
                end;
                theTarget.Container.OverrideCursor := true;
                oBinder.MouseSpin := oHandSpin;
                if (oBinder.MouseSpin @ 1).Data=void then
                    oBinder.MouseSpin.EachUp(Load);
                end;
                if not oBinder.MouseSpin.IsRunning() then
                    oBinder.MouseSpin.Start();
                end;
                oBinder.Refresh();
                oClick_Sound__down__6_3.Run(true);
            end;

        MouseUp(theTarget, theX, theY)
            do
                theTarget.Show(true);
                oMenu_Inverse_6_13.Show(false);
                -- Turn off the spining cursor, if there is one
                if oBinder.MouseSpin<>void then
                    if oBinder.MouseSpin.IsRunning() then
                        oBinder.MouseSpin.Stop();
                    end;
                    oBinder.MouseSpin := void;
                end;
                theTarget.Container.OverrideCursor := false;
                oBinder.Refresh();
                oClick_Sound__Up__6_2.Run(true);
                oBinder.Goto(oMain_Menu_1);
                oBinder.SetTransition(oVerticalComb, 30);
            end;

    with
        Enabled is true; Shown is true;
        X is 163; Y is 427; Width is 126; Height is 53;
    end;
end;


object oArrow_Left_Inverse_6_9 is cPictureHandler
with
    Duration is -1;
    Supplier is oS2_ALI_PIC;
    Behavior is cDefaultBehavior
    has
        Offscreen(theTarget)
            do
                theTarget.Show(false);
                theTarget.Enable(false);
            end;

    with
        Enabled is true; Shown is true;
        X is 381; Y is 441; Width is 51; Height is 40;
    end;
end;


object oArrow_Right_Inverse_6_10 is cPictureHandler
with
    Duration is -1;
    Supplier is oS2_ARI_PIC;
    Behavior is cDefaultBehavior
    has
        Offscreen(theTarget)
            do
                theTarget.Show(false);
                theTarget.Enable(false);
            end;

    with
        Enabled is true; Shown is true;
        X is 477; Y is 438; Width is 50; Height is 42;
    end;
end;


object oExit_Inverse_6_11 is cPictureHandler
with
    Duration is -1;
    Supplier is oS2_ETI_PIC;
    Behavior is cDefaultBehavior
    has
        Offscreen(theTarget)
            do
                theTarget.Show(false);
                theTarget.Enable(false);
            end;

    with
        Enabled is true; Shown is true;
        X is 528; Y is 439; Width is 112; Height is 42;
    end;
end;


object oExplain_Inverse_6_12 is cPictureHandler
with
    Duration is -1;
    Supplier is oS2_EXI_PIC;
    Behavior is cDefaultBehavior
    has
        Offscreen(theTarget)
            do
                theTarget.Show(false);
                theTarget.Enable(false);
            end;

    with
        Enabled is true; Shown is true;
        X is 291; Y is 438; Width is 87; Height is 43;
    end;
end;


object oMenu_Inverse_6_13 is cPictureHandler
with
    Duration is -1;
    Supplier is oS2_MNUI_PIC;
    Behavior is cDefaultBehavior
    has
        Offscreen(theTarget)
            do
                theTarget.Show(false);
                theTarget.Enable(false);
            end;

    with
        Enabled is true; Shown is true;
        X is 167; Y is 438; Width is 123; Height is 43;
    end;
end;


object oQT_MOTO_MOV_6_16 is cMovieControllerHandler
with
    Supplier is oQT_MOTO_MOV;
    Behavior is cDefaultBehavior
    has
    with
        Enabled is true; Shown is true;
        X is 312; Y is 22; Width is 320; Height is 240;
    end;
end;


object oQT_FINI_PIC_6_17 is cPictureHandler
with
    Duration is -1;
    Supplier is oQT_FINI_PIC;
    Behavior is cDefaultBehavior
    has
        MouseEnter(theTarget, theX, theY)
            do
                theTarget.Show(false);
            end;

        MouseLeave(theTarget, theX, theY)
            do
                theTarget.Show(true);
            end;

        MouseDown(theTarget, theX, theY)
            do
                oClick_Sound__down__6_3.Run(true);
                oQT_MOTO_MOV_6_16.Goto(3746);
                oQT_MOTO_MOV_6_16.RunTo(4292);
            end;

    with
        Enabled is true; Shown is true;
        X is 220; Y is 105; Width is 69; Height is 30;
    end;
end;


object oQT_LG1_PIC_6_18 is cPictureHandler
with
    Duration is -1;
    Supplier is oQT_LG1_PIC;
    Behavior is cDefaultBehavior
    has
        MouseEnter(theTarget, theX, theY)
            do
                theTarget.Show(false);
            end;

        MouseLeave(theTarget, theX, theY)
            do
                theTarget.Show(true);
            end;

        MouseDown(theTarget, theX, theY)
            do
                oClick_Sound__down__6_3.Run(true);
                oQT_MOTO_MOV_6_16.Goto(660);
                oQT_MOTO_MOV_6_16.RunTo(1368);
            end;

    with
        Enabled is true; Shown is true;
        X is 170; Y is 295; Width is 55; Height is 25;
    end;
end;


object oQT_LG2_PIC_6_19 is cPictureHandler
with
    Duration is -1;
    Supplier is oQT_LG2_PIC;
    Behavior is cDefaultBehavior
    has
        MouseEnter(theTarget, theX, theY)
            do
                theTarget.Show(false);
            end;

        MouseLeave(theTarget, theX, theY)
            do
                theTarget.Show(true);
            end;

        MouseDown(theTarget, theX, theY)
            do
                oClick_Sound__down__6_3.Run(true);
                oQT_MOTO_MOV_6_16.Goto(1368);
                oQT_MOTO_MOV_6_16.RunTo(1676);
            end;

    with
        Enabled is true; Shown is true;
        X is 401; Y is 386; Width is 61; Height is 34;
    end;
end;


object oQT_LG3_PIC_6_20 is cPictureHandler
with
    Duration is -1;
    Supplier is oQT_LG3_PIC;
    Behavior is cDefaultBehavior
    has
        MouseEnter(theTarget, theX, theY)
            do
                theTarget.Show(false);
            end;

        MouseLeave(theTarget, theX, theY)
            do
                theTarget.Show(true);
            end;

        MouseDown(theTarget, theX, theY)
            do
                oClick_Sound__down__6_3.Run(true);
                oQT_MOTO_MOV_6_16.Goto(1676);
                oQT_MOTO_MOV_6_16.RunTo(2052);
            end;

    with
        Enabled is true; Shown is true;
        X is 354; Y is 338; Width is 65; Height is 35;
    end;
end;


object oQT_STRT_PIC_6_21 is cPictureHandler
with
    Duration is -1;
    Supplier is oQT_STRT_PIC;
    Behavior is cDefaultBehavior
    has
        MouseEnter(theTarget, theX, theY)
            do
                theTarget.Show(false);
            end;

        MouseLeave(theTarget, theX, theY)
            do
                theTarget.Show(true);
            end;

        MouseDown(theTarget, theX, theY)
            do
                oClick_Sound__down__6_3.Run(true);
                oQT_MOTO_MOV_6_16.Goto(0);
                oQT_MOTO_MOV_6_16.RunTo(660);
            end;

    with
        Enabled is true; Shown is true;
        X is 181; Y is 168; Width is 80; Height is 30;
    end;
end;


object oQT_TNL_PIC_6_22 is cPictureHandler
with
    Duration is -1;
    Supplier is oQT_TNL_PIC;
    Behavior is cDefaultBehavior
    has
        MouseEnter(theTarget, theX, theY)
            do
                theTarget.Show(false);
            end;

        MouseLeave(theTarget, theX, theY)
            do
                theTarget.Show(true);
            end;

        MouseDown(theTarget, theX, theY)
            do
                oClick_Sound__down__6_3.Run(true);
                oQT_MOTO_MOV_6_16.Goto(2052);
                oQT_MOTO_MOV_6_16.RunTo(3746);
            end;

    with
        Enabled is true; Shown is true;
        X is 218; Y is 251; Width is 72; Height is 26;
    end;
end;


object oQT_HLP1_PIC_6_24 is cPictureHandler
with
    Duration is -1;
    Supplier is oQT_HLP1_PIC;
    Behavior is cDefaultBehavior
    has
    with
        Enabled is false; Shown is false;
        X is 168; Y is 0; Width is 472; Height is 425;
    end;
end;